home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clinical Endocrinology
/
Clinical Endocrinology.iso
/
pc
/
00000000
/
notes.dir
/
00002_Script_2
< prev
next >
Wrap
Text File
|
1995-11-09
|
2KB
|
69 lines
on startMovie
global grabbedText
setTextFormat
end startMovie
----------------------------------------------------
on pasteTextFromClip
pasteClipboardInto cast "Clipboard Field"
put the text of cast "Clipboard Field" into theText
put the selEnd into insertPoint
put theText after char insertPoint of field "Notes Field"
end pasteTextFromClip
----------------------------------------------------
on readTextFile
global gReadObj
if objectp(gReadObj) then gReadObj(mdispose)
set gReadObj = fileio(mnew,"?read", "TEXT")
if not objectp(gReadObj) then
--alert fileio(merror,gReadObj)
else
put gReadObj(mReadFile) into field "Notes Field"
end if
end readTextFile
----------------------------------------------------
on writeTextFile
global gWriteObject
if the machineType <> 256 then
put "Text File" into defaultName
else
put "*.TXT" into defaultName
end if
set gWriteObject = fileio(mNew,"?write", defaultName)
if objectP(gWriteObject) then
put the text of field "Notes Field" into theText
gWriteObject(mWriteString,theText)
gWriteObject(mdispose)
end if
end writeTextFile
------------------------------------------------------
on setTextFormat
if the machineType <> 265 then
set helveticaText = "Helvetica"
else
set helveticaText = "Arial"
end if
if voidP(HelveticaText) = false then
set the textFont of field "Notes Field" = HelveticaText
end if
set the textSize of field "Notes Field" = 12
end setTextFormat